home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 122
/
122side4.d64
/
hello connect
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-29
|
949b
|
24 lines
3 poke53281,0:poke53280,0:poke32767,13
5 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or3
10 poke53272,21:poke648,4:poke55,0:poke56,160:poke51,0:poke52,160:gosub500
20 gosub40000
500 dv=peek(186):ifdv<8thendv=8
505 print"[147]":a$=" "
510 b$="[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
520 poke214,9:print:poke646,15:fori=1to10:print""b$:next
530 poke214,11:print:poke646,11:fori=1to7:printtab(2)left$(b$,34):next
540 poke214,10:print:poke646,3:fori=1to7:printtab(3)""left$(b$,34):next
550 poke214,12:print:poke646,7:fori=1to4:printtab(5)""left$(a$,30):next
555 poke214,11:print:printtab(5)"[158] "
560 printtab(7)"[212]here is no [204][207][193][196][211][212][193][210] menu"
562 printtab(7)"on this side. [212]ry another"
565 printtab(7)"side and press a key. "
570 geta$:ifa$=""then570
580 return
10000 open15,8,15,"s0:hello connect":close15:save"hello connect",8:end
40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40020
40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
40020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:poke186,8:end
40030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
40040 print"run":poke44,8:poke2048,0:poke631,13:poke632,13:poke198,2:end